From 1e95ed28db7059d9b6e2e30faa4988ed42b53245 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Wed, 24 Mar 1993 01:46:10 +0000 Subject: [PATCH] * keyboard.c (Fsuspend_emacs): Change suspend-hooks back to suspend-hook and make it a normal hook. --- src/keyboard.c | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 904257ad912..aa2a8503270 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -4151,17 +4151,9 @@ On such systems, Emacs starts a subshell instead of suspending.") if (!NILP (stuffstring)) CHECK_STRING (stuffstring, 0); - /* Run the functions in suspend-hooks. */ - tem = Fsymbol_value (intern ("suspend-hooks")); - while (CONSP (tem)) - { - Lisp_Object val; - GCPRO2 (stuffstring, tem); - val = call0 (Fcar (tem)); - UNGCPRO; - tem = Fcdr (tem); - if (!EQ (val, Qnil)) return Qnil; - } + /* Run the functions in suspend-hook. */ + if (!NILP (Vrun_hooks)) + call1 (Vrun_hooks, intern ("suspend-hook")); GCPRO1 (stuffstring); get_frame_size (&old_width, &old_height); @@ -4180,8 +4172,7 @@ On such systems, Emacs starts a subshell instead of suspending.") if (width != old_width || height != old_height) change_frame_size (0, height, width, 0, 0); - /* Call value of suspend-resume-hook - if it is bound and value is non-nil. */ + /* Run suspend-resume-hook. */ if (!NILP (Vrun_hooks)) call1 (Vrun_hooks, intern ("suspend-resume-hook")); -- 2.30.2